'Imports Microsoft.Office.Tools
'Imports Microsoft.Office
'Imports System.IO

'Public Class clsOffice

'    Public Sub OpenOfficeDocument(ByVal DocPath As String)
'        Dim fileinf As New FileInfo(DocPath)

'        Select Case fileinf.Extension.ToUpper
'            Case ".DOC"
'                'woedapp()
'            Case ".XLS"
'            Case ".DOT"

'        End Select

'    End Sub
'End Class
''Word 2007 File Type Extension

''docx - Word 2007 XML Document 
''docm - Word 2007 XML Macro-Enabled Document 
''dotx - Word 2007 XML Template 
''dotm - Word 2007 XML Macro-Enabled Template 
''Excel 2007 File Type Extension

''xlsx - Excel 2007 XML Workbook 
''xlsm - Excel 2007 XML Macro-Enabled Workbook 
''xltx - Excel 2007 XML Template 
''xltm - Excel 2007 XML Macro-Enabled Template 
''xlsb - Excel 2007 binary workbook (BIFF12) 
''xlam - Excel 2007 XML Macro-Enabled Add-In 
''PowerPoint 2007 File Type Extension

''pptx - PowerPoint 2007 XML Presentation 
''pptm - PowerPoint 2007 Macro-Enabled XML Presentation 
''potx - PowerPoint 2007 XML Template 
''potm - PowerPoint 2007 Macro-Enabled XML Template 
''ppam - PowerPoint 2007 Macro-Enabled XML Add-In 
''ppsx - PowerPoint 2007 XML Show 
''ppsm - PowerPoint 2007 Macro-Enabled XML Show 
